/*

Laura Hamilton	
Proposal title: Whom Do You Believe? Assessing Credibility of the Accuser and Accused in Sexual Assault	

HYPOTHESES

Stated-Hyp1: There will be difference in the credibility of the man vs. woman in cases where a woman accuses a man vs. when a man accuses a woman.

	Test-Hyp1: There will be difference in the credibility of the man vs. woman in cases where a woman accuses a man vs. when a man accuses a woman.

Stated-Hyp2: There will be a difference in the credibility of the man vs. woman by descriptions of sexual assault (rape, attempted rape, inappropriate touching)

	Test-Hyp2: There will be a difference in the credibility of the man vs. woman in case of rape vs. attempted rape

	Test-Hyp3: There will be a difference in the credibility of the man vs. woman in case of rape vs. inappropriate touching

	Test-Hyp4: There will be a difference in the credibility of the man vs. woman in case of attempted rape vs. inappropriate touching
	
Stated-Hyp3: There will be a difference in the credibility of the man vs. woman by descriptions of denial (accused doesn't remember; says accuser consented)

	Test-Hyp5: There will be a difference in the credibility of the man vs. woman by descriptions of denial (accused doesn't remember; says accuser consented)
	
Stated-Hyp4: There will be a difference in the credibility of the man vs. woman by alcohol use (both drinking or not) 

	Test-Hyp6: There will be a difference in the credibility of the man vs. woman in the case where both were drinking vs. neither drinking
	
Stated-Hyp5: There will be a difference in the credibility of the man vs. woman by time elapsed (few days vs. 1 year vs. 20 years)

	* Not testable. Experimental conditions not incuded in fielded survey.
	
Stated-Hyp6: There will be a difference in the credibility of the man vs. woman by previous allegations (first allegation about accused vs. not first allegation)

	Test-Hyp7: 	There will be a difference in the credibility of the man vs. woman if this was the first allegation against the accused  vs. not first allegation
	
Stated-Hyp7: There will be a difference in the credibility of the man vs. woman by relationship b/w accuser and accused (boyfriend, acquaintance, stranger)

	* Not testable. Experimental conditions not incuded in fielded survey.
	
********************************************************************************
NOTES: 

- Page 7 of the revised memo has the final list of manipulations. 
- there is a discussion about partisanship in the revision memo (in response to 
reviewer) and there is also a mention of demographic controls in the original 
proposal. However, it is unclear how/whether that should translate into 
hypotheses.

- not sure how to measure the outcome. In the original proposal, the outcome was 
credibility, measured as a continuous variable. In the fielded proposal, the 
outcome is whether R believed the man or woman more (and then based on response 
to this question, they asked about credibility of the gender they chose). We have 
used the first question as the outcome.
*/

use "HamiltonS33.dta", clear

********************************************************************************

*MEASURES OF EXPERIMENTAL MANIPULATION

tab HAMILTON_VIGNETTE // 11 conditions

*gender of accused vs. accuser

	/*
	VIGNETTE 1. WOMAN ACCUSER
	[SHOW IF P_HAMILTON=1]
	A woman has accused a man of sexually assaulting her. The man denies the allegation.

	VIGNETTE 2. MAN ACCUSER
	[SHOW IF P_HAMILTON=2]
	A man has accused a woman of sexually assaulting him. The woman denies the allegation.
	*/

	gen accused_man= 1 if HAMILTON_VIGNETTE==1
	replace accused_man= 0 if HAMILTON_VIGNETTE==2

* condition of assault

	/*
	VIGNETTE 3. RAPE LANGUAGE
	[SHOW IF P_HAMILTON=3]
	A woman has accused a man of raping her. The man denies the allegation.

	VIGNETTE 4. ATTEMPTED RAPE LANGUAGE
	[SHOW IF P_HAMILTON=4]
	A woman has accused a man of attempting to rape her. The man denies the allegation.

	VIGNETTE 5. INAPPROPRIATE TOUCHING LANGUAGE
	[SHOW IF P_HAMILTON=5]
	A woman has accused a man of touching her inappropriately without her consent. The man denies the allegation.
	*/

	gen assault_rape_atrape= 1 if HAMILTON_VIGNETTE==3
	replace assault_rape_atrape= 0 if HAMILTON_VIGNETTE==4

	gen assault_rape_touch= 1 if HAMILTON_VIGNETTE==3
	replace assault_rape_touch= 0 if HAMILTON_VIGNETTE==5

	gen assault_atrape_touch= 1 if HAMILTON_VIGNETTE==4
	replace assault_atrape_touch= 0 if HAMILTON_VIGNETTE==5	

* denial condition	

	/*
	VIGNETTE 6. SOFT DENIAL
	[SHOW IF P_HAMILTON=6]
	A woman has accused a man of sexually assaulting her. The man denies the allegation and says he does not remember the event in question, but this is something he would never do.

	VIGNETTE 7. CONSENT
	[SHOW IF P_HAMILTON=7]
	A woman has accused a man of sexually assaulting her. The man denies the allegation and says the woman consented.
	*/
	
	gen denial_condition= 1 if HAMILTON_VIGNETTE==6
	replace denial_condition= 0 if HAMILTON_VIGNETTE==7

* alcohol use

	/*
	VIGNETTE 8. BOTH HAD BEEN DRINKING
	[SHOW IF P_HAMILTON=8]
	A woman has accused a man of sexually assaulting her. The man denies the allegation. Both people had been drinking at the time.

	VIGNETTE 9. NEITHER HAD BEEN DRINKING
	[SHOW IF P_HAMILTON=9]
	A woman has accused a man of sexually assaulting her. The man denies the allegation. Neither person had been drinking at the time.
	*/
	
	gen alcohol_both= 1 if HAMILTON_VIGNETTE==8
	replace alcohol_both= 0 if HAMILTON_VIGNETTE==9

* number of past allegations

	/*
	VIGNETTE 10. FIRST ALLEGATION AGAINST MAN
	[SHOW IF P_HAMILTON=10]
	A woman has accused a man of sexually assaulting her. The man denies the allegation. This is not the first time the woman has accused a man of sexual assault.
	VIGNETTE 11. NOT THE FIRST ALLEGATION AGAINST MAN
	[SHOW IF P_HAMILTON=11]
	A woman has accused a man of sexually assaulting her. The man denies the allegation. This is not the first time he has been accused of sexual assault.
	*/
	
	gen prev_accusation= 1 if HAMILTON_VIGNETTE==10
	replace prev_accusation= 0 if HAMILTON_VIGNETTE==11	


* OUTCOME

* Would you be more inclined to believe the man or the woman?
	tab Q1A
	tab Q1B
	recode Q1A (1=1) (2=0) (*=.), gen(believedman)
	tab believedman
	replace believedman=0 if Q1B==1
	replace believedman=1 if Q1B==2
	tab believedman	
********************************************************************************
* ANALYSIS

*Test-Hyp1: There will be difference in the credibility of the man vs. woman in cases where a woman accuses a man vs. when a man accuses a woman.

	reg believedman i.accused_man
	// do not reject. p=0.000
	tess 1.accused_man, init(HamiltonS33)
	
*Test-Hyp2: There will be a difference in the credibility of the man vs. woman in case of rape vs. attempted rape

	reg believedman i.assault_rape_atrape
	// reject. p=0.749
	tess 1.assault_rape_atrape
	
*Test-Hyp3: There will be a difference in the credibility of the man vs. woman in case of rape vs. inappropriate touching

	reg believedman i.assault_rape_touch
	// do not reject. p=0.020
	tess 1.assault_rape_touch
	
*Test-Hyp4: There will be a difference in the credibility of the man vs. woman in case of attempted rape vs. inappropriate touching
	
	reg believedman i.assault_atrape_touch
	// do not reject. p=0.007
	tess 1.assault_atrape_touch
	
*Test-Hyp5: There will be a difference in the credibility of the man vs. woman by descriptions of denial (accused doesn't remember; says accuser consented)
	
	reg believedman i.denial_condition
	// reject. p=0.290
	tess 1.denial_condition
	
*Test-Hyp6: There will be a difference in the credibility of the man vs. woman in the case where both were drinking vs. neither drinking
	
	reg believedman i.alcohol_both
	// reject. p=0.498
	tess 1.alcohol_both
	
*Test-Hyp7: There will be a difference in the credibility of the man vs. woman if this was the first allegation against the accused  vs. not first allegation

	reg believedman i.prev_accusation
	// do not reject. p=0.000
	tess 1.prev_accusation
